home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / NEXTIN.f < prev    next >
Text File  |  1992-07-31  |  710b  |  22 lines
  1.       FUNCTION NEXTIN(STRING,KFCH,KLCH) 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   returns as function value the integer extracted from string 
  5. *   'STRING' between KFCH and KLCH, by ignoring all non-numeric 
  6. *   characters. default value is therefore 0.   
  7. *   
  8. *-----------------------------------------------------------------------
  9.       include 'PARAM.h' 
  10.       CHARACTER *(*) STRING 
  11.       include 'CONVEX.h' 
  12.       N=0   
  13. *--- convert external zero into internal
  14.       NZERO=ICVAL('0')  
  15. *--- construct integer  
  16.       DO 10 J=KFCH,KLCH 
  17.          I=ICVAL(STRING(J:J))-NZERO 
  18.          IF (I.GE.0.AND.I.LE.9) N=10*N+I
  19.    10 CONTINUE  
  20.       NEXTIN=N  
  21.       END   
  22.